home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CS / CSCD024B.D64 / quick viewer! / quick viewer!.a7ae (.txt)
Encoding:
Commodore BASIC  |  2019-04-13  |  50.0 KB  |  57 lines
  1. 0 REM *QUICK VIEWER FOR R.O.T.L.A*
  2. 1 POKE56,31:POKE55,255:CLR
  3. 2 DV=PEEK(186):IFDV<8THENDV=8
  4. 3 GOSUB100
  5. 4 POKE700,1:POKE701,7:POKE702,19:POKE703,20:POKE704,21:POKE705,255
  6. 5 SYS52985:ONPEEK(2)GOSUB300,400,500
  7. 12 SYS57812F$,DV,0:POKE780,0:POKE781,0:POKE782,32:SYS65493
  8. 14 POKE251,32:POKE252,64:POKE253,96
  9. 15 PRINT"[147]"
  10. 21 SYS51456:SYS51459:POKE53280,PEEK(53281)
  11. 25 POKE198,0
  12. 26 GETA$:IFA$=""THEN26
  13. 27 SYS51459:PRINT"[147]":POKE53281,0
  14. 29 GOTO3
  15. 100 PRINT"[147]";:POKE53280,6:POKE53281,6
  16. 105 POKE53265,PEEK(53265)AND191:POKE53270,PEEK(53270)AND239
  17. 110 POKE53272,(PEEK(53272)AND240)OR4
  18. 115 PRINTSPC(10)"[176]````````````[178]```````````[174]":PRINTSPC(10)"}LOST ART    }S";
  19. 120 PRINT"OUTH PARK }[154] ":PRINTSPC(10)"[171]````````````{```````````[179][154] "
  20. 125 PRINT"        [221]ART RAVERS  [221]SIGN       [221][154][160]":PRINT"       [221]ALIEN";
  21. 130 PRINT"       }STAN+KYLE  }[154] ":PRINT"[176][174][176][174]}CYBERNETIC  }KENNY     ";
  22. 135 PRINT" [221][154] ":PRINT"[176][189][173][192][192][192][189][221] [221]DESERT      [221]CARTMAN    [221][154] "
  23. 140 PRINT"[173][174][176][192][192][192][192][189]R[221]DIE!        [221]CHEF       [221][154] ":PRINT"[171][179]A[221]DR WH";
  24. 145 PRINT"O      [221]SURPRISE   [221][154] ":PRINT"[221][173][192][192][192][192][174]V[221]FISHTANK    [171][192][192][192][192][192][192][192][192][192][192]";
  25. 150 PRINT"[192][179][154] ":PRINT"[171][192][192][192][192][192][179]E[221]FROG        [221]STAR WARS  [221][154] "
  26. 155 PRINT"[221][176][174][176][192][174][221]R[221]HAPPY NEW YR[171][192][192][192][192][192][192][192][192][192][192][192][179][154] ":PRINT"[221][221][221][221][221][221]S[221]HANK ";
  27. 160 PRINT"HILL   [221]AT-AT      [221][154] ":PRINT"[221][221][221][173][192][189][221] [221]IN THE FRAME[221]IG-88     ";
  28. 165 PRINT" }[154] ":PRINT"[173][189][173]```[189]}KIT KAT     }REBEL SHIPS}[154] "
  29. 170 PRINTSPC(10)"}MARTIAN     }R2D2       }[154] ":PRINTSPC(10)"}MR HAPPY   ";
  30. 175 PRINT" [171]```````````[179][154] ":PRINTSPC(10)"}RAINBOWS..  }ALL ART BY }[154] "
  31. 180 PRINTSPC(10)"}SHOCKING    }ART RAVERS }[154] ":PRINTSPC(10)"}WATCHES    ";
  32. 185 PRINT" }ALL CODE BY}[154] ":PRINTSPC(10)"}X-FILES     }MERMAN 1999}[154] "
  33. 190 PRINTSPC(10)"[173]````````````[177]```````````[189][154] ":PRINTSPC(11)"             ";
  34. 195 PRINT"             "
  35. 205 PRINT"[176][192][192][192][192][192][192][192][174][146]"
  36. 210 PRINT"[221]CHOOSE [221][154] [146]"
  37. 215 PRINT"[171][192][192][192][192][192][192][192][179][154] [146]"
  38. 220 PRINT"[221]LOSTART[221][154] [146]"
  39. 230 PRINT"[221]S.PARK [221][154] [146]"
  40. 235 PRINT"[221]STARWRS[221][154] [146]"
  41. 240 PRINT"[173][192][192][192][192][192][192][192][189][154] [146]"
  42. 245 PRINT"[154]          [146]"
  43. 250 PRINT"CRSR UP[157][157][157][157][157][157][157]& DOWN[157][157][157][157][157][157]+RETURN"
  44. 255 RETURN
  45. 300 REM *LOST ART*
  46. 304 POKE700,11:POKE701,12:FORT=0TO17:POKE702+T,3+T:NEXTT:POKE720,255
  47. 305 SYS52985:F=PEEK(2):F$=CHR$(F+64)+"-*"
  48. 306 RETURN
  49. 400 REM *SOUTH PARK*
  50. 404 POKE700,24:POKE701,11:FORT=0TO5:POKE702+T,3+T:NEXTT:POKE702+T,255
  51. 405 SYS52985:F=PEEK(2):F$=CHR$(F+48)+"-*"
  52. 406 RETURN
  53. 500 REM *STAR WARS*
  54. 504 POKE700,24:POKE701,11:FORT=0TO3:POKE702+T,12+T:NEXTT:POKE702+T,255
  55. 505 SYS52985:F=PEEK(2):F$="S"+CHR$(F+48)+"-*"
  56. 506 RETURN
  57.